﻿Imports VN.INS.BL.BC
Imports System.Data
Imports System.Web
Imports System.IO

Partial Class Devida_CambiarContrasena
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If (Not (Page.IsPostBack)) Then

        End If
    End Sub

    'Edita contraseña
    Public Sub CAMBIACONTRASEÑA(ByVal P As String, ByVal U As String)
        Dim objcontraseñaBC As New CambioContrasenaBC
        objcontraseñaBC.CAMBIACONTRASEÑA(P, U)
    End Sub

    Protected Sub btnguardar_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btnguardar.Click
        If txtnc.Text = "" Or txtrc.Text = "" Then  'verificar si se ingresaron datos
            alerta.Mostrar_Alerta("Aviso", "Debe Ingresar Contraseña")
            Exit Sub 'Salir de procedimiento
        End If

        If txtnc.Text = txtrc.Text Then 'si nueva ambas contraseñas son iguales
            CAMBIACONTRASEÑA(txtnc.Text, Session("USER_ID").ToString)
            alerta.Mostrar_Alerta("Aviso", "Nueva Contraseña Guardada")
        Else     'si son distintas
            alerta.Mostrar_Alerta("Aviso", "Las dos Contraseñas deben ser iguales")
        End If
    End Sub

    'Salir
    Protected Sub btnsalir_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btnsalir.Click
        Response.Redirect("Inicio.aspx", False)
    End Sub

End Class